COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun require fexpr (file)
C00004 ENDMK
C⊗;
;(defun require fexpr (file)
; ((lambda (f eof)
;   (do ((form (read f eof)
;	      (read f eof)))
;       ((eq form eof) f)
;       (eval form)))
;  (apply 'include (ncons (defaultf file))) (ncons nil)))

(decLare (*expr eload))
(iacrodef push (x! (setq pdl (cons x pdl)))
(hCGI←IKL↓a←`@ R@Ag∃ibAM%YJ@Q
IdAMαK3∃%JH4)#n∂K?&+→β∂F+∂-↓BI↓#∂|s⊃↓!FsW31ε3'3∃JCS#K␈9↓#;⊗+[↔K≤)βC∪bIβ?W"I%%$hQ# .≤:&}ε\dε&.l≡Vgα¬fNfU⊃PRF=xLD
→R-L!"H¬x=_m∧
≤≤M|h
≤M
#"A∀λ≤≥.≥λ
_l≡H→R-L**#!!(
≤
}
#"A∀λ≤≥.≥λ
_m⎇Yλ
¬
|H

n;≠λM;→*!Q@∧DDH⊂⊂6r[xP∀1Xy⊂3$[2TP∪J29u@≤|yTTCE		   	  (j`∨hQCi←4@QGCHAMCY∀RRRROy??⎇xR@~(∩∩@@@@AhQae←≤dA]S0@QGCHAMSY∀R@Aa=`RRR$R~∀∩QGQKα≠ ~HQ!∩αG∞Z6Bα8mlλ
α≡≠{ ¬x8@⊂→4v2TJP⊂89≠qY⊂ .il (car fIle)(pop!))
∩∩@@@@!h@OIMRRRR4∀∩@Q
QKGV$~∀α@!acgPα↓#∂?v!↓!!βTαF@→;YnMλ
_l≡H→R-L**(ε%*_p.$→Z0⊗→TTFEαDP⊂⊂λ⊂∀:⊂
44yjλ∀1pp\⊂34`,e)(cAdr (state@LAkISHRRRR$R~∀∩Q`∪#⊗{]↓βw∪↔[↔↔≠∃βC&a%β?/!%$4R↓β?W"I%%$hP4)#&+≠@.d
&/∂]~&*εlX∞∞∞H
→M≥→*#!$λλλ∧∧λ


L98Y∀λ∧1`2)
		(edoad (ugreat⊃ (defaudtf (default↓H'∪*I%%%h $¬FCC3J↓∨∂K,s'Qβ≥⊃%$∀PI#OS∂#WMβ≤ε'.v≤@
%∃!"@